home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 June / EnigmA AMIGA RUN 19 (1997)(G.R. Edizioni)(IT)[!][issue 1997-06][EAR-CD III].iso / games / f1gp-ed / install / install_f1gp-ed < prev   
Text File  |  1997-02-26  |  32KB  |  1,439 lines
  1. ; F1GP-Ed Install Script - Copyright © 1994-1997 Oliver Roberts
  2. ;
  3. ; $VER: Install_F1GP-Ed 4.19 (26.2.97)
  4. ;
  5. ; - German translation by Dirk Kocherscheidt
  6. ; - French translation by Daniel Grenson
  7.  
  8. ;****************************************************************************
  9. ; Distribution Parameters
  10.  
  11. (set #frenchdocexists 0)
  12.  
  13. ;****************************************************************************
  14. ; English strings
  15. ;
  16. (set #str-installtype
  17.     "Choose installation:"
  18. )
  19.  
  20. (set #str-hd
  21.     "Hard disk installation"
  22. )
  23.  
  24. (set #str-floppy
  25.     "Floppy disk installation"
  26. )
  27.  
  28. (set #str-help-installtype (cat
  29.     "F1GP-Ed is best installed to a hard drive.  If you don't have "
  30.     "one, then select floppy disk and this installer will install "
  31.     "F1GP-Ed to floppy disk instead.")
  32. )
  33.  
  34. (set #str-hdconfirm (cat
  35.     "Make sure you have booted from your hard drive, before "
  36.     "continuing with this installation!\n\nDo you want to continue?")
  37. )
  38.  
  39. (set #str-floppyconfirm (cat
  40.     "Make sure you have a blank formatted disk ready.  Refer to "
  41.     "the Workbench manual if you are unsure how to format a disk.\n\n"
  42.     "Do you want to continue?")
  43. )
  44.  
  45. (set #str-diskwarn (cat
  46.     "IMPORTANT: If you are running this installer off a floppy disk, "
  47.     "please make sure the disk is write-protected before proceeding.\n\n"
  48.     "Please be aware that a full installation won't fit on a single DD "
  49.     "floppy disk, so it's best to only choose one language for the "
  50.     "documentation, and only the relevant locale catalog.")
  51. )
  52.  
  53. (set #str-diskinsertnew
  54.     "Please insert a blank formatted disk in drive DF0:\n(internal disk drive)"
  55. )
  56.  
  57. (set #str-diskremove
  58.     "You should now remove this disk and mark it as the %s disk."
  59. )
  60.  
  61. (set #str-diskrename1
  62.     "main F1GP-Ed"
  63. )
  64.  
  65. (set #str-diskanydrive (cat
  66.     "From now on you may insert this disk in any drive when requested "
  67.     "(i.e. not just the internal drive).")
  68. )
  69.  
  70. (set #str-diskinsert
  71.     "Please insert the %s disk in any drive"
  72. )
  73.  
  74. (set #str-copy
  75.     "Copying files to %s"
  76. )
  77.  
  78. (set #str-tmpcopy
  79.     "Copying files to temporary directory"
  80. )
  81.  
  82. (set #str-tmpclean
  83.     "Cleaning temporary directory"
  84. )
  85.  
  86. (set #str-hdwhere
  87.     "Select where F1GP-Ed should be installed (a drawer called \"F1GP-Ed\" will be created)"
  88. )
  89.  
  90. (set #str-fileexists (cat
  91.     "Could not create the \"F1GP-Ed\" drawer - make sure there are "
  92.     "no files called \"F1GP-Ed\" in the destination you selected.\n\n\n"
  93.     "Installation Failed!")
  94. )
  95.  
  96. (set #str-drawerexists (cat
  97.     "The F1GP-Ed drawer already exists.  It will be renamed "
  98.     "to \"F1GP-Ed_OLD\" if you want to keep any of the files "
  99.     "in it, otherwise all files will be deleted/replaced.")
  100. )
  101.  
  102. (set #str-replacedrawer
  103.     "Replace drawer"
  104. )
  105.  
  106. (set #str-renamedrawer
  107.     "Rename drawer"
  108. )
  109.  
  110. (set #str-extract
  111.     "Unpacking files - this may take a while..."
  112. )
  113.  
  114. (set #str-whichdocs
  115.     "Install documentation for which languages?"
  116. )
  117.  
  118. (set #str-helplanguage
  119.     "Which language should be used for on-line help?"
  120. )
  121.  
  122. (set #str-help-helplanguage (cat
  123.     "You should select your preferred language from the list so that "
  124.     "F1GP-Ed knows which version of the documentation to use for "
  125.     "the on-line help feature.  This is done by modifying the "
  126.     "HELPFILE tooltype in the F1GP-Ed program icon.")
  127. )
  128.  
  129. (set #str-whichcatalogs
  130.     "Install which catalogs? (english is built-in)"
  131. )
  132.  
  133. (set #str-help-whichcatalogs (cat
  134.     "If you have Workbench 2.1 or higher, F1GP-Ed will be able to "
  135.     "make use of locale catalogs.  This means that the strings in "
  136.     "F1GP-Ed itself can be in a different language.\n\n"
  137.     "Selected catalogs will be installed in the F1GP-Ed drawer.")
  138. )
  139.  
  140. (set #str-confirmoptional
  141.     "Please select which of these you'd like to install"
  142. )
  143.  
  144. (set #str-seasondata
  145.     "%ld season data"
  146. )
  147.  
  148. (set #str-soundfiles
  149.     "Replacement sound samples (%s drawer)"
  150. )
  151.  
  152. (set #str-gfxfiles
  153.     "Replacement cockpit designs (%s drawer)"
  154. )
  155.  
  156. (set #str-extrafiles
  157.     "Miscellaneous F1GP stuff (%s drawer)"
  158. )
  159.  
  160. (set #str-update
  161.     "Installing newer version of %s"
  162. )
  163.  
  164. (set #str-exe
  165.     "F1GP-Ed executable"
  166. )
  167.  
  168. (set #str-iconfix
  169.     "Setting icon tools and tooltypes"
  170. )
  171.  
  172. (set #str-floppyextras
  173.     "Copying extra files required for autobooting disk"
  174. )
  175.  
  176. (set #str-theend (cat
  177.     "\nEnjoy using F1GP-Ed ;-)\n\n"
  178.     "The latest version of F1GP-Ed is always available from the "
  179.     "F1GP-Ed Web Page - %s\n\n%s\n")
  180. )
  181.  
  182. (set #str-tmpstorage (cat
  183.     "Select an area to use as temporary storage.  A drawer called \"%s\" "
  184.     "will be created there, and will be deleted when installation has "
  185.     "been completed.  The default is usually sufficient.")
  186. )
  187.  
  188. (set #str-prepdisk
  189.     "Preparing floppy disk"
  190. )
  191.  
  192. (set #str-bootfloppyend (cat
  193.     "F1GP-Ed disk created.  You should now be able to boot directly "
  194.     "from the disk after this installer has exited.")
  195. )
  196.  
  197. ;****************************************************************************
  198. ; German strings
  199. ;
  200. (if (= @language "deutsch") (
  201.     (set #str-installtype
  202.         "Wählen Sie die Art der Installation:"
  203.     )
  204.  
  205.     (set #str-hd
  206.         "Festplatten Installation"
  207.     )
  208.  
  209.     (set #str-floppy
  210.         "Floppy Disk Installation"
  211.     )
  212.  
  213.     (set #str-help-installtype (cat
  214.         "F1GP-Ed wird am besten auf die Festplatte installiert. Wenn "
  215.         "Sie keine haben, dann wählen Sie Floppy Disk und der Installer "
  216.         "wird F1GP-Ed statt dessen auf Diskette installieren.")
  217.     )
  218.  
  219.     (set #str-hdconfirm (cat
  220.         "Versichern Sie sich, daß Sie von Ihrer Festplatte gebootet haben, "
  221.         "bevor Sie mit dieser Installation fortfahren!\n\nMöchten Sie fortfahren?")
  222.     )
  223.  
  224.     (set #str-floppyconfirm (cat
  225.         "Denken Sie daran, eine formatierte Leerdiskette bereit zu haben. "
  226.         "Schlagen Sie in Ihrem Workbench Handbuch nach, wenn Sie nicht genau "
  227.         "wissen wie man eine Diskette formatiert.\n\n"
  228.         "Möchten Sie fortfahren?")
  229.     )
  230.  
  231.     (set #str-diskwarn (cat
  232.         "WICHTIG: Wenn Sie diesen Installer von Diskette laufen lassen, "
  233.         "dann überzeugen Sie sich, daß die Diskette schreibgeschützt ist, "
  234.         "bevor Sie fortfahren.\n\n Bitte denken Sie daran, daß die komplette "
  235.         "Installation nicht auf eine einzige DD Diskette paßt; es ist also am "
  236.         "besten, wenn Sie nur eine Sprache für die Dokumentation und nur den "
  237.         "für Sie relevanten Locale Catalog wählen.")
  238.     )
  239.  
  240.     (set #str-diskinsertnew (cat
  241.         "Bitte legen Sie eine formatierte Leerdiskette in Laufwerk DF0: ein\n"
  242.         "(internes Laufwerk)")
  243.     )
  244.  
  245.     (set #str-diskremove
  246.         "Sie sollten diese Diskette jetzt entfernen und als %s Diskette beschriften."
  247.     )
  248.  
  249.     (set #str-diskrename1
  250.         "F1GP-Ed Haupt -"
  251.     )
  252.  
  253.     (set #str-diskanydrive (cat
  254.         "Von jetzt an können Sie die Diskette in jedes beliebige Laufwerk "
  255.         "einlegen (d.h. nicht nur ins interne Laufwerk).")
  256.     )
  257.  
  258.     (set #str-diskinsert
  259.         "Bitte legen Sie die %s Diskette in ein beliebiges Laufwerk"
  260.     )
  261.  
  262.     (set #str-copy
  263.         "Kopiere Dateien nach %s"
  264.     )
  265.  
  266.     (set #str-tmpcopy
  267.         "Kopiere temporär benötigte Dateien in temporäres Verzeichnis"
  268.     )
  269.  
  270.     (set #str-tmpclean
  271.         "Säubere temporäres Verzeichnis"
  272.     )
  273.  
  274.     (set #str-hdwhere (cat
  275.         "Wählen Sie, wo F1GP-Ed installiert werden soll (ein Verzeichnis namens "
  276.         "\"F1GP-Ed\" wird dort angelegt)")
  277.     )
  278.  
  279.     (set #str-fileexists (cat
  280.         "Konnte das Verzeichnis \"F1GP-Ed\" nicht anlegen - überzeugen Sie sich, daß "
  281.         "keine Dateien namens \"F1GP-Ed\" in Ihrem gewählten Ziel sind.\n\n\n"
  282.         "Installation fehlgeschlagen!")
  283.     )
  284.  
  285.     (set #str-drawerexists (cat
  286.         "Das F1GP-Ed Verzeichnis existiert bereits. Es wird in \"F1GP-Ed_OLD\" "
  287.         "umbenannt, wenn Sie irgendwelche Dateien daraus behalten wollen, "
  288.         "anderenfalls werden alle Dateien gelöscht/ersetzt.")
  289.     )
  290.  
  291.     (set #str-replacedrawer
  292.         "Ersetze Verzeichnis"
  293.     )
  294.  
  295.     (set #str-renamedrawer
  296.         "Benenne Verzeichnis um"
  297.     )
  298.  
  299.     (set #str-extract
  300.         "Entpacke Dateien - das kann eine Weile dauern..."
  301.     )
  302.  
  303.     (set #str-whichdocs
  304.         "In welchen Sprachen soll die Dokumentation installiert werden?"
  305.     )
  306.  
  307.     (set #str-helplanguage
  308.         "Welche Sprache soll für die on-line Hilfe benutzt werden?"
  309.     )
  310.  
  311.     (set #str-help-helplanguage (cat
  312.         "Sie sollten aus dieser Liste Ihre bevorzugte Sprache auswählen, so daß "
  313.         "F1GP-Ed weiß, welche Version der Dokumentation für das on-line Hilfe "
  314.         "Feature benutzt werden soll. Dies wird gemacht, indem das HELPFILE "
  315.         "Tooltype im F1GP-Ed Programm Icon verändert wird.")
  316.     )
  317.  
  318.     (set #str-whichcatalogs
  319.         "Welche Cataloge sollen installiert werden? (Englisch ist schon eingebaut)"
  320.     )
  321.  
  322.     (set #str-help-whichcatalogs (cat
  323.         "Wenn Sie Workbench 2.1 oder höher haben, ist F1GP-Ed in der Lage "
  324.         "Locale Catalogs zu benutzen. Das bedeutet, daß die Texte in F1GP-Ed selbst, "
  325.         "in verschiedenen Sprachen sein können.\n\n"
  326.         "Ausgewählte Cataloge werden ins F1GP-Ed Verzeichnis installiert.")
  327.     )
  328.  
  329.     (set #str-confirmoptional
  330.         "Bitte wählen Sie, was Sie hiervon installieren möchten"
  331.     )
  332.  
  333.     (set #str-seasondata
  334.         "%lder Saison Daten"
  335.     )
  336.  
  337.     (set #str-soundfiles
  338.         "Ersatz Sound-Samples (%s Verzeichnis)"
  339.     )
  340.  
  341.     (set #str-gfxfiles
  342.         "Ersatz Cockpit-Designs (%s Verzeichnis)"
  343.     )
  344.  
  345.     (set #str-extrafiles
  346.         "Verschiedenes F1GP Zeug (%s Verzeichnis)"
  347.     )
  348.  
  349.     (set #str-update
  350.         "Installiere neue Version der %s"
  351.     )
  352.  
  353.     (set #str-exe
  354.         "ausführbaren F1GP-Ed Datei"
  355.     )
  356.  
  357.     (set #str-iconfix
  358.         "Setze Icon Tools und Tooltypes"
  359.     )
  360.  
  361.     (set #str-floppyextras
  362.         "Kopiere extra Dateien, die für selbst-bootende Diskette benötigt werden"
  363.     )
  364.  
  365.     (set #str-theend (cat
  366.         "\nViel Spaß beim Benutzen von F1GP-Ed ;-)\n\n"
  367.         "Die neueste Version von F1GP-Ed gibt es immer auf der F1GP-Ed Web Page "
  368.         "- %s\n\n%s\n")
  369.     )
  370.     
  371.     (set #str-tmpstorage (cat
  372.         "Wählen Sie ein Verzeichnis, das als temporäres Verzeichnis benutzt "
  373.         "werden soll. Ein Verzeichnis namens \"%s\" wird dort angelegt und "
  374.         "nach der Installation wieder gelöscht. Die Vorgabe ist normalerweise "
  375.         "ausreichend.")
  376.     )
  377.  
  378.     (set #str-prepdisk
  379.         "Bereite Diskette vor"
  380.     )
  381.  
  382.     (set #str-bootfloppyend (cat
  383.         "F1GP-Ed Diskette angelegt. Sie sollten nun direkt von der Diskette "
  384.         "booten können, nachdem der Installer beendet ist.")
  385.     )
  386. ))
  387.  
  388. ;****************************************************************************
  389. ; French strings
  390. ;
  391. (if (= @language "français") (
  392.     (set #str-installtype
  393.         "Choisissez le type d'installation:"
  394.     )
  395.  
  396.     (set #str-hd
  397.         "Installation sur disque dur"
  398.     )
  399.  
  400.     (set #str-floppy
  401.         "Installation sur disquette"
  402.     )
  403.  
  404.     (set #str-help-installtype (cat
  405.         "Il est préférable d'installer F1GP-Ed sur disque dur. Si vous n'en "
  406.         "possédez pas, sélectionnez alors installation sur disquette, ce "
  407.         "qui sera fait alors par cet installeur.")
  408.     )
  409.  
  410.     (set #str-hdconfirm (cat
  411.         "Assurez-vous d'avoir lancé votre ordinateur au départ du disque dur, "
  412.         "avant de continuer cette installation!\n\nVoulez-vous continuer?")
  413.     )
  414.  
  415.     (set #str-floppyconfirm (cat
  416.         "Pensez à avoir une disquette vide et formatée à votre disposition. "
  417.         "Référez-vous au manuel du Workbench si vous ne savez pas comment "
  418.         "formater une disquette.\n\n"
  419.         "Voulez-vous continuer?")
  420.     )
  421.  
  422.     (set #str-diskwarn (cat
  423.         "IMPORTANT: Si vous lancez cet installeur au départ d'une disquette, "
  424.         "s'il-vous plait, assurez-vous qu'elle est protégée contre l'écriture "
  425.         "avant de continuer.\n\n Soyez conscient que l'installation complète "
  426.         "ne peut tenir sur une simple disquette, il vaut donc mieux ne choisir "
  427.         "qu'une seule langue pour la documentation, et seulement le catalogue "
  428.         "locale utile.")
  429.     )
  430.  
  431.     (set #str-diskinsertnew (cat
  432.         "Insérez, s'il-vous plait, une disquette vide formatée dans le lecteur DF0:\n"
  433.         "(lecteur de disquette interne)")
  434.     )
  435.  
  436.     (set #str-diskremove
  437.         "Vous devriez retirer cette disquette maintenant et la renommer maintenent comme disquette %s."
  438.     )
  439.  
  440.     (set #str-diskrename1
  441.         "main F1GP-Ed"
  442.     )
  443.  
  444.     
  445.     (set #str-diskanydrive (cat
  446.         "A partir d'ici, vous pouvez insérer cette disquette dans un lecteur "
  447.         "lorsque cela est demandé (C'est-à-dire pas seulement dans le lecteur "
  448.         "interne).")
  449.     )
  450.  
  451.     (set #str-diskinsert
  452.         "Insérez, s'il-vous plait, la disquette %s dans un lecteur de votre choix"
  453.     )
  454.  
  455.     (set #str-copy
  456.         "Copie des fichiers vers %s"
  457.     )
  458.  
  459.     (set #str-tmpcopy
  460.         "Copie des fichiers vers un répertoire temporaire"
  461.     )
  462.  
  463.     (set #str-tmpclean
  464.         "Effacement du répertoire temporaire"
  465.     )
  466.  
  467.     (set #str-hdwhere (cat
  468.         "Sélectionnez l'endroit où F1GP-Ed devrait être installé (un tiroir appelé "
  469.         "\"F1GP-Ed\" sera créé)")
  470.     )
  471.  
  472.     (set #str-fileexists (cat
  473.         "Impossible de créer le tiroir \"F1GP-Ed\" - assurez-vous qu'il n'y a pas "
  474.         "de fichier appelé \"F1GP-Ed\" dans la destination que vous avez sélectionnéein.\n\n\n"
  475.         "Echec de l'installation!")
  476.     )
  477.  
  478.     (set #str-drawerexists (cat
  479.         "Le tiroir F1GP-Ed existe déja. Il sera renommé \"F1GP-Ed_OLD\" "
  480.         "si vous souhaitez conserver un des fichiers qui s'y trouve, autrement "
  481.         "tous les fichiers seront effacés/remplacés.")
  482.     )
  483.  
  484.     (set #str-replacedrawer
  485.         "Remplacer le tiroir"
  486.     )
  487.  
  488.     (set #str-renamedrawer
  489.         "Renommer le tiroir"
  490.     )
  491.  
  492.     (set #str-extract
  493.         "Décompactage des données - cela peut durer un peu..."
  494.     )
  495.  
  496.     (set #str-whichdocs
  497.         "Dans quelles langues doit être installée la documentation?"
  498.     )
  499.  
  500.     (set #str-helplanguage
  501.         "Quelle langue devrait être utilisée pour l'aide en ligne?"
  502.     )
  503.  
  504.     (set #str-help-helplanguage (cat
  505.         "Vous devriez sélectionnez votre langue préférée de la liste de manière "
  506.         "à ce que F1GP-Ed sache quelle version de la documentation utiliser "
  507.         "pour la caractéristique de l'aide en ligne.  Ceci est réalisé par la "
  508.         "modification du type d'outil HELPFILE (Fichier d'aide) de l'icone "
  509.         "du programme F1GP-Ed.")
  510.     )
  511.  
  512.     (set #str-whichcatalogs
  513.         "Quels catalogues souhaitez-vous installer? (L'anglais est déja incorporé)"
  514.     )
  515.  
  516.     (set #str-help-whichcatalogs (cat
  517.         "Si vous possédez un Workbench 2.1 ou supérieur, F1GP-Ed sera capable "
  518.         "d'utiliser les catalogues Locale. Cela signifie que les textes de F1GP-Ed "
  519.         "lui-même, peuvent être dans différentes langues.\n\n"
  520.         "Les catalogues sélectionnés seront installés dans le tiroir F1GP-Ed.")
  521.     )
  522.  
  523.     (set #str-confirmoptional
  524.         "Sélectionnez, s'il-vous plait, ce que vous souhaitez installer"
  525.     )
  526.  
  527.     (set #str-seasondata
  528.         "%ld  Données de cette saison"
  529.     )
  530.  
  531.     (set #str-soundfiles
  532.         "Echantillons de sons de remplacement (%s tiroir)"
  533.     )
  534.  
  535.     (set #str-gfxfiles
  536.         "Dessins de cockpit de remplacement (%s tiroir)"
  537.     )
  538.  
  539.     (set #str-extrafiles
  540.         "Diverses choses à propos de/pour F1GP (%s tiroir)"
  541.     )
  542.  
  543.     (set #str-update
  544.         "Installation de la nouvelle version de %s"
  545.     )
  546.  
  547.     (set #str-exe
  548.         "Données du programme exécutable F1GP-Ed"
  549.     )
  550.  
  551.     (set #str-iconfix
  552.         "Pose des icones outils et des types d'outil"
  553.     )
  554.  
  555.     (set #str-floppyextras
  556.         "Copie des fichiers extras nécessaires pour disquette autoboot"
  557.     )
  558.  
  559.     (set #str-theend (cat
  560.         "\nPrenez beaucoup de plaisir en utilisant F1GP-Ed ;-)\n\n"
  561.         "La dernière versiob de F1GP-Ed est disponible sur la page Web "
  562.         "- %s\n\n%s\n")
  563.     )
  564.     
  565.     (set #str-tmpstorage (cat
  566.         "Sélectionnez l'endroit utilisé pour conserver momentanément les données. "
  567.         "Un tiroir appelé \"%s\" y sera créé et sera ensuite effacé lorsque "
  568.         "l'installation sera terminée.  Le réglage par défaut est habituellement "
  569.         "suffisant.")
  570.     )
  571.  
  572.     (set #str-prepdisk
  573.         "Préparez votre disquette"
  574.     )
  575.  
  576.     (set #str-bootfloppyend (cat
  577.         "Disquette F1GP-Ed créée.  Maintenant vous devriez pouvoir Booter "
  578.         "directement au départ de cette disquette après que cet installeur "
  579.         "ait terminé son activité.")
  580.     )
  581. ))
  582.  
  583.  
  584. ;****************************************************************************
  585. ; Initializations
  586. ;
  587. (set #fail 0)
  588. (set #file 1)
  589. (set #dir 2)
  590.  
  591. (set #OSVersion (/ (getversion) 65536))
  592.  
  593. (if (< #OSVersion 39)
  594.     (set #TextTool "AmigaGuide")
  595.     (set #TextTool "MultiView")
  596. )
  597.  
  598. (set #fromfloppy (exists "C/TestKS13"))
  599. (set #tmpdir "F1GP-Ed_tmp")
  600. (set #packed (exists "F1GP-Ed.lzx"))
  601. (set #floppyassign "F1GP-Ed_newfloppy")
  602.  
  603. (set #numhelplanguages 3)
  604. (set #numcatalogs 10)
  605.  
  606. (if (exists "ENV:Language")
  607.     (set #envlanguage (getenv "Language"))
  608.     (set #envlanguage @language)
  609. )
  610.  
  611. (set #n 0)
  612. (set #defcatalog 0)
  613. (while (< #n #numcatalogs)
  614.     (
  615.         (if (= #envlanguage (select #n "ÃeÓtina" "dansk" "deutsch" "español" "français" "italiano" "nederlands" "norsk" "suomi" "svenska"))
  616.             (set #defcatalog (shiftleft 1 #n))
  617.         )
  618.         (set #n (+ #n 1))
  619.     )
  620. )
  621.  
  622. (set #freemem (+ (database "total-mem")))
  623. (set #lowmem (< #freemem 1048576))
  624.  
  625. ;****************************************************************************
  626. ; Procedures
  627. ;
  628. (procedure P_SetTextTool
  629.     (if (exists #TextFile)
  630.         (tooltype
  631.             (prompt #str-iconfix)
  632.             (setdefaulttool #TextTool)
  633.             (dest #TextFile)
  634.         )
  635.     )
  636. )
  637.  
  638. (procedure P_CleanTmpDir
  639.     (if (exists #tmpdir)
  640.         (
  641.             (working #str-tmpclean)
  642.             (run ("\"%s\" \"%s\" ALL QUIET" #delete (tackon #tmpdir "files/#?")))
  643.         )
  644.     )
  645. )
  646.  
  647. (procedure P_CleanTmpDirAll
  648.     (if (exists #tmpdir)
  649.         (
  650.             (P_CleanTmpDir)
  651.             (delete (tackon #tmpdir "F1GP-Ed.lzx"))
  652.             (delete (tackon #tmpdir "UNLZX"))
  653.         )
  654.     )
  655. )
  656.  
  657. (procedure P_AskForMainDisk
  658.     (if #tofloppy
  659.         (askdisk
  660.             (prompt (#str-diskinsert #str-diskrename1))
  661.             (help @askdisk-help)
  662.             (dest "F1GP-Ed")
  663.         )
  664.     )
  665. )
  666.  
  667. (procedure P_AskForInstallDisk
  668.     (if (AND #tofloppy #fromfloppy)
  669.         (askdisk
  670.             (prompt (#str-diskinsert "F1GP-Ed_Install"))
  671.             (help @askdisk-help)
  672.             (dest "F1GP-Ed_Install")
  673.         )
  674.     )
  675. )
  676.  
  677. (procedure P_Extract
  678.     (if #packed
  679.         (
  680.             (if #lowmem
  681.                 (P_AskForInstallDisk)
  682.             )
  683.             (working #str-extract)
  684.             (run ("\"%s\" -m x \"%s\" %s \"%s\"" #lzx (tackon #srcdir "F1GP-Ed.lzx") #extract (tackon #tmpdir "files/")))
  685.             (if #lowmem
  686.                 (P_AskForMainDisk)
  687.             )
  688.         )
  689.     )
  690. )
  691.  
  692. (procedure P_CleanUp
  693.     (
  694.         (if (exists #tmpdir)
  695.             (
  696.                 (working #str-tmpclean)
  697.                 (run ("\"%s\" \"%s\" ALL QUIET" #delete (tackon #tmpdir "#?")))
  698.                 (delete #tmpdir)
  699.             )
  700.         )
  701.         (makeassign #floppyassign (safe))
  702.     )
  703. )
  704.  
  705. ;****************************************************************************
  706. ; Main body of installer (the mess ;)
  707. ;
  708.  
  709. (welcome "")
  710.  
  711. ; ask questions and prepare to install
  712.  
  713. (set #tofloppy
  714.     (askchoice
  715.         (prompt #str-installtype)
  716.         (default 0)
  717.         (choices #str-hd #str-floppy)
  718.         (help (cat #str-help-installtype "\n\n" @askchoice-help))
  719.     )
  720. )
  721.  
  722. (if (NOT
  723.     (askbool
  724.         (prompt (if #tofloppy #str-floppyconfirm #str-hdconfirm))
  725.         (default 0)
  726.         (help "")
  727.     ))
  728.     (exit (quiet))
  729. )
  730.  
  731. (onerror (P_CleanUp))
  732.  
  733. (if (OR #packed #tofloppy)
  734.     (
  735.         (set #tmpstorage
  736.             (if (= 2 @user-level)
  737.                 (askdir
  738.                     (prompt (#str-tmpstorage #tmpdir))
  739.                     (help @askdir-help)
  740.                     (disk)
  741.                     (default "RAM:")
  742.                 )
  743.                 "RAM:"
  744.             )
  745.         )
  746.         (set #tmpdir (tackon #tmpstorage #tmpdir))
  747.     )
  748. )
  749.  
  750. (if #tofloppy
  751.     (        
  752.         (copyfiles
  753.             (prompt #str-tmpcopy)
  754.             (help @copyfiles-help)
  755.             (source "C:Delete")
  756.             (dest #tmpdir)
  757.         )
  758.         (set #delete (tackon #tmpdir "Delete"))
  759.         (if #fromfloppy
  760.             (copyfiles
  761.                 (prompt #str-tmpcopy)
  762.                 (help @copyfiles-help)
  763.                 (source (if (< #OSVersion 36) "C:Install13" "C:Install"))
  764.                 (dest #tmpdir)
  765.                 (newname "Install")
  766.             )
  767.         )
  768.         (if (AND #fromfloppy (NOT @installer-version))
  769.             (copyfiles
  770.                 (prompt #str-tmpcopy)
  771.                 (help @copyfiles-help)
  772.                 (source "C:Relabel")
  773.                 (dest #tmpdir)
  774.             )
  775.         )
  776.         (message #str-diskwarn)
  777.         (message #str-diskinsertnew)
  778.         (working #str-prepdisk)
  779.         (set #oldname (getassign "df0" "d"))
  780.         ; old versions of installer didn't recoginize disk param!
  781.         (if @installer-version
  782.             (rename #oldname "F1GP-Ed" (disk))
  783.             (if #fromfloppy
  784.                 (
  785.                     (run ("\"%s\" \"%s\" F1GP-Ed" (tackon #tmpdir "Relabel") #oldname))
  786.                     (delete (tackon #tmpdir "Relabel"))
  787.                 )
  788.                 (run ("C:Relabel \"%s\" F1GP-Ed" #oldname))
  789.             )
  790.         )
  791.         (if #fromfloppy
  792.             (
  793.                 (run ("\"%s\" DF0:" (tackon #tmpdir "Install")))
  794.                 (delete (tackon #tmpdir "Install"))
  795.             )
  796.             (if (exists "C:Install")
  797.                 (run "C:Install DF0:")
  798.             )
  799.         )
  800.         (makeassign #floppyassign "DF0:" (safe))
  801.         (run ("\"%s\" %s:#? ALL QUIET" #delete #floppyassign))
  802.         (message (cat (#str-diskremove #str-diskrename1) "  " #str-diskanydrive))
  803.         (set #destdir ("%s:" #floppyassign))
  804.         (set @default-dest #destdir)
  805.     )
  806. ; else
  807.     (
  808.         (set #delete "C:Delete")
  809.         (set #destdir
  810.             (askdir
  811.                 (prompt #str-hdwhere)
  812.                 (help @askdir-help)
  813.                 (default @default-dest)
  814.             )
  815.         )
  816.  
  817.         (set @default-dest (tackon #destdir "F1GP-Ed"))
  818.  
  819.         (if (= #file (exists @default-dest))
  820.             (
  821.                 (message #str-fileexists)
  822.                 (exit (quiet))
  823.             )
  824.         )
  825.  
  826.         (if (exists @default-dest)
  827.             (
  828.                 (set #rename (askbool
  829.                     (prompt #str-drawerexists)
  830.                     (default 0)
  831.                     (help "")
  832.                     (choices #str-renamedrawer #str-replacedrawer)
  833.                 ))
  834.                 (if #rename
  835.                     (
  836.                         (rename @default-dest (cat @default-dest "_OLD"))
  837.                         (rename (cat @default-dest ".info") (cat @default-dest "_OLD.info"))
  838.                     )
  839.                 )
  840.             )
  841.         )
  842.  
  843.         (if (NOT (exists @default-dest))
  844.             (makedir @default-dest (infos))
  845.         )
  846.     )
  847. )
  848.  
  849. (if #fromfloppy
  850.     (
  851.         (set #unpackdir (tackon #tmpdir "files"))
  852.         (set #srcdir (if (AND #tofloppy (NOT #lowmem)) #tmpdir ""))
  853.         (set #diskdir (if #tofloppy #unpackdir ""))
  854.     )
  855.     (
  856.         (set #srcdir "/")
  857.         (set #unpackdir #srcdir)
  858.         (set #diskdir #srcdir)
  859.         (set #frenchdocexists (exists (tackon #srcdir "Docs/F1GP-Ed_français.guide")))
  860.     )
  861. )
  862.  
  863. (set #n 0)
  864. (set #defhelp 0)
  865. (if (= #envlanguage "deutsch")
  866.     (set #defhelp 1)
  867. )
  868. (if (AND (= #envlanguage "français") #frenchdocexists)
  869.     (set #defhelp 2)
  870. )
  871.  
  872. (set #whichdocs
  873.     (askoptions
  874.         (prompt #str-whichdocs)
  875.         (help @askoptions-help)
  876.         (if #frenchdocexists (choices "English" "Deutsch" "Français") (choices "English" "Deutsch"))
  877.         (default (shiftleft 1 #defhelp))
  878.     )
  879. )
  880.  
  881. (set #n 0)
  882. (set #count 0)
  883. (while (< #n #numhelplanguages)
  884.     (
  885.         (if (IN #whichdocs #n)
  886.             (
  887.                 (set #count (+ #count 1))
  888.                 (set #single #n)
  889.             )
  890.         )
  891.         (set #n (+ #n 1))
  892.     )
  893. )
  894.  
  895. (if (> #count 1)
  896.     (set #help-language
  897.         (askchoice
  898.             (prompt #str-helplanguage)
  899.             (help (cat #str-help-helplanguage "\n\n" @askchoice-help))
  900.             (if #frenchdocexists (choices "English" "Deutsch" "Français") (choices "English" "Deutsch"))
  901.             (default #defhelp)
  902.         )
  903.     )
  904. ;else
  905.     (set #help-language #single)
  906. )
  907.  
  908. (set #helpfile
  909.     ("Docs/F1GP-Ed_%s.guide" (select #help-language "english" "deutsch" "français"))
  910. )
  911.  
  912. (if (>= #OSVersion 36)
  913.     (set #helpfile (cat "PROGDIR:" #helpfile))
  914. )
  915.  
  916. (if (>= #OSVersion 36)
  917.     (set #whichcatalogs
  918.         (askoptions
  919.             (prompt #str-whichcatalogs)
  920.             (help (cat #str-help-whichcatalogs "\n\n" @askoptions-help))
  921.             (choices "ÃeÓtina" "dansk" "deutsch" "español" "français"
  922.                  "italiano" "nederlands" "norsk" "suomi" "svenska")
  923.             (default #defcatalog)
  924.         )
  925.     )
  926.     (set #whichcatalogs 0)
  927. )
  928.  
  929. (set #opts
  930.     (askoptions
  931.         (prompt #str-confirmoptional)
  932.         (help @askoptions-help)
  933.         (choices (#str-seasondata 1997)
  934.              (#str-seasondata 1996)
  935.              (#str-seasondata 1995)
  936.              (#str-seasondata 1994)
  937.              (#str-soundfiles "Sound")
  938.              (#str-gfxfiles "Graphics")
  939.              (#str-extrafiles "Extras")
  940.         )
  941.         (default 127)
  942.     )
  943. )
  944.  
  945. (P_AskForInstallDisk)
  946.  
  947. (if (AND #fromfloppy #tofloppy)
  948.     (
  949.         (if (NOT #lowmem)
  950.             (copyfiles
  951.                 (prompt #str-tmpcopy)
  952.                 (help @copyfiles-help)
  953.                 (source "F1GP-Ed.lzx")
  954.                 (dest #tmpdir)
  955.             )
  956.         )
  957.         (copyfiles
  958.             (prompt #str-tmpcopy)
  959.             (help @copyfiles-help)
  960.             (source "C/UNLZX")
  961.             (dest #tmpdir)
  962.         )
  963.         (set #lzx (tackon #tmpdir "UNLZX"))
  964.     )
  965. ;else
  966.     (set #lzx "C/UNLZX")
  967. )
  968.  
  969. (complete 0)
  970.  
  971. ; install libs
  972.  
  973. (if #tofloppy
  974.     (set #libdir ("%s:Libs" #floppyassign))
  975.     (set #libdir "LIBS:")
  976. )
  977.  
  978. (if (< #OSVersion 36)
  979.     (set #extract "Libs/f1gp.l#? Libs/gad#? Libs/reqt#?")
  980.     (set #extract "Libs/f1gp.library Libs/reqtools.library")
  981. )
  982. (P_Extract)
  983.  
  984. (P_AskForMainDisk)
  985.  
  986. (copylib
  987.     (prompt (#str-update "f1gp.library"))
  988.     (source (tackon #unpackdir "Libs/f1gp.library"))
  989.     (dest #libdir)
  990.     (help @copylib-help)
  991.     (confirm)
  992. )
  993.  
  994. (complete 3)
  995.  
  996. (if (< #OSVersion 36) 
  997.     (    (set #ReqToolsSource "Libs/reqtools.library")
  998.         (copylib
  999.             (prompt (#str-update "gadtools13.library"))
  1000.             (source (tackon #unpackdir "Libs/gadtools13.library"))
  1001.             (dest #libdir)
  1002.             (help @copylib-help)
  1003.             (confirm)
  1004.         )
  1005.     )
  1006.     (    (set #ReqToolsSource "Libs/reqtools.library")
  1007.         (set #asllib (tackon #libdir "asl.library"))
  1008.         (if (exists #asllib)
  1009.             (    (set #aslver (/ (getversion #asllib) 65536))
  1010.                 (if (>= #aslver 38)
  1011.                     (set #ReqToolsSource "")
  1012.                 )
  1013.             )
  1014.         )
  1015.     )
  1016. )
  1017.  
  1018. (if #ReqToolsSource
  1019.     (copylib
  1020.         (prompt (#str-update "reqtools.library"))
  1021.         (source (tackon #unpackdir #ReqToolsSource))
  1022.         (dest #libdir)
  1023.         (help @copylib-help)
  1024.         (newname "reqtools.library")
  1025.         (confirm)
  1026.     )
  1027. )
  1028.  
  1029. (P_CleanTmpDir)
  1030.  
  1031. (complete 10)
  1032.  
  1033. ; install F1GP-Ed drawer
  1034.  
  1035. (P_AskForMainDisk)
  1036.  
  1037. (set #extract "F1GP-Ed F1GP-Ed.info Docs.info")
  1038. (P_Extract)
  1039.  
  1040. (copylib
  1041.     (prompt (#str-update #str-exe))
  1042.     (source (tackon #unpackdir "F1GP-Ed"))
  1043.     (dest @default-dest)
  1044.     (help @copylib-help)
  1045.     (infos)
  1046.     (confirm)
  1047. )
  1048.  
  1049. (complete 25)
  1050.  
  1051. (copyfiles
  1052.     (source (tackon #unpackdir "Docs.info"))
  1053.     (dest @default-dest)
  1054.     (help @copyfiles-help)
  1055. )
  1056.  
  1057. (P_CleanTmpDir)
  1058.  
  1059. (set #n 0)
  1060. (while (< #n #numhelplanguages)
  1061.     (
  1062.         (if (IN #whichdocs #n)
  1063.             (
  1064.                 (set #docfilename ("Docs/F1GP-Ed_%s.guide" (select #n "english" "deutsch" "français")))
  1065.                 (set #extract (cat #docfilename "#?"))
  1066.                                 (P_Extract)
  1067.                 (if (exists (tackon #unpackdir #docfilename))
  1068.                                     (copyfiles
  1069.                         (source (tackon #unpackdir #docfilename))
  1070.                         (dest (tackon @default-dest "Docs"))
  1071.                         (help @copyfiles-help)
  1072.                         (infos)
  1073.                     )
  1074.                 )
  1075.                 (P_CleanTmpDir)
  1076.             )
  1077.         )
  1078.         (set #n (+ #n 1))
  1079.     )
  1080. )
  1081.  
  1082. (complete 40)
  1083.  
  1084. (set #extract "History.txt#? Reg_Form#?")
  1085. (P_Extract)
  1086.  
  1087. (copyfiles
  1088.     (prompt (#str-copy @default-dest))
  1089.     (source #unpackdir)
  1090.     (choices "History.txt" "Reg_Form")
  1091.     (dest @default-dest)
  1092.     (help @copyfiles-help)
  1093.     (infos)
  1094.     (confirm)
  1095. )
  1096. (P_CleanTmpDir)
  1097.  
  1098. (complete 50)
  1099.  
  1100. ; copy optional files
  1101.  
  1102. (if (OR (OR (OR (IN #opts 0) (IN #opts 1)) (IN #opts 2)) (IN #opts 3))
  1103.     (
  1104.         (set #extract "199?.f1gp#?")
  1105.         (P_Extract)
  1106.     )
  1107. )
  1108.  
  1109. (set #n 0)
  1110. (while (< #n 4)
  1111.     (
  1112.         (if (IN #opts #n)
  1113.             (
  1114.                 (set #filename (select #n "1997.f1gp" "1996.f1gp" "1995.f1gp" "1994.f1gp"))
  1115.                 (copyfiles
  1116.                     (source (tackon #unpackdir #filename))
  1117.                      (dest @default-dest)
  1118.                     (help @copyfiles-help)
  1119.                     (infos)
  1120.                 )
  1121.                 (set #filename (cat (tackon #unpackdir #filename) ".events"))
  1122.                 (if (exists #filename)
  1123.                     (copyfiles
  1124.                         (source #filename)
  1125.                          (dest @default-dest)
  1126.                         (help @copyfiles-help)
  1127.                     )
  1128.                 )
  1129.             )
  1130.         )        
  1131.         (set #n (+ #n 1))
  1132.     )
  1133. )
  1134.  
  1135. (P_CleanTmpDir)
  1136.  
  1137. (complete 60)
  1138.  
  1139. ; copy optional dirs
  1140.  
  1141. (set #n 4)
  1142. (while (< #n 7)
  1143.     (
  1144.         (if (IN #opts #n)
  1145.             (
  1146.                 (set #filename (select (- #n 4) "Sound" "Graphics" "Extras"))
  1147.                 (set #extract (cat #filename "/#? " #filename ".info"))
  1148.                 (P_Extract)
  1149.                 (copyfiles
  1150.                     (source (tackon #unpackdir (cat #filename ".info")))
  1151.                      (dest @default-dest)
  1152.                     (help @copyfiles-help)
  1153.                 )
  1154.                 (copyfiles
  1155.                     (source (tackon #unpackdir #filename))
  1156.                      (dest (tackon @default-dest #filename))
  1157.                     (help @copyfiles-help)
  1158.                     (all)
  1159.                     (infos)
  1160.                 )
  1161.                 (P_CleanTmpDir)
  1162.             )
  1163.         )        
  1164.         (set #n (+ #n 1))
  1165.     )
  1166. )
  1167.  
  1168. (if (IN #opts 7)
  1169.     (tooltype
  1170.         (prompt #str-iconfix)
  1171.         (setdefaulttool "Installer")
  1172.         (dest (tackon @default-dest "Extras/Install_F1GP"))
  1173.     )
  1174. )
  1175.  
  1176. (complete 75)
  1177.  
  1178. (if (>= #OSVersion 36)
  1179.     (
  1180.         (set #newdir (tackon @default-dest "Catalogs"))
  1181.         (if (NOT (exists #newdir))
  1182.             (makedir #newdir)
  1183.         )
  1184.         (set #extract "Catalogs/#? Catalogs.info")
  1185.         (P_Extract)
  1186.  
  1187.         (copyfiles
  1188.             (source (tackon #unpackdir "Catalogs.info"))
  1189.             (dest @default-dest)
  1190.             (help @copyfiles-help)
  1191.         )
  1192.         (set #dest (tackon @default-dest "Catalogs"))
  1193.         (copyfiles
  1194.             (prompt (#str-copy #dest))
  1195.             (source (tackon #unpackdir "Catalogs/NewCatalog.ct"))
  1196.             (dest #dest)
  1197.             (help @copyfiles-help)
  1198.             (infos)
  1199.             (confirm)
  1200.         )
  1201.     )
  1202. )
  1203.  
  1204. (complete 77)
  1205.  
  1206. (set #n 0)
  1207. (while (< #n #numcatalogs)
  1208.     (
  1209.         (if (IN #whichcatalogs #n)
  1210.             (
  1211.                 (set #filename ("Catalogs/%s/F1GP-Ed.catalog" (select #n "ÃeÓtina" "dansk" "deutsch" "español" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")))
  1212.                 (copyfiles
  1213.                     (source (tackon #unpackdir #filename))
  1214.                     (dest (tackon @default-dest (pathonly #filename)))
  1215.                     (help @copyfiles-help)
  1216.                 )
  1217.             )
  1218.         )
  1219.         (set #n (+ #n 1))
  1220.     )
  1221. )
  1222.  
  1223. (P_CleanTmpDir)
  1224.  
  1225. (complete 82)
  1226.  
  1227. (if (AND #fromfloppy #tofloppy)
  1228.     (
  1229.         (P_AskForInstallDisk)
  1230.         (if (exists "F1GP-Ed.key")
  1231.             (copyfiles
  1232.                 (prompt #str-tmpcopy)
  1233.                 (help @copyfiles-help)
  1234.                 (source "F1GP-Ed.key")
  1235.                 (dest #unpackdir)
  1236.             )
  1237.         )
  1238.         (if (exists "Registered.guide")
  1239.             (copyfiles
  1240.                 (prompt #str-tmpcopy)
  1241.                 (help @copyfiles-help)
  1242.                 (source "Registered.guide")
  1243.                 (dest #unpackdir)
  1244.                 (infos)
  1245.             )
  1246.         )
  1247.         (P_AskForMainDisk)
  1248.     )
  1249. )
  1250.  
  1251. (if (exists (tackon #diskdir "F1GP-Ed.key"))
  1252.     (copyfiles
  1253.         (prompt (#str-copy @default-dest))
  1254.         (source (tackon #diskdir "F1GP-Ed.key"))
  1255.         (dest @default-dest)
  1256.         (help @copyfiles-help)
  1257.         (confirm)
  1258.     )
  1259. )
  1260. (set #dest (tackon @default-dest "Docs"))
  1261. (if (exists (tackon #diskdir "Registered.guide"))
  1262.     (copyfiles
  1263.         (prompt (#str-copy #dest))
  1264.         (source (tackon #diskdir "Registered.guide"))
  1265.         (dest #dest)
  1266.         (help @copyfiles-help)
  1267.         (infos)
  1268.         (confirm)
  1269.     )
  1270. )
  1271.  
  1272. (if (AND #fromfloppy #tofloppy)
  1273.     (P_CleanTmpDir)
  1274. )
  1275.  
  1276. (complete 87)
  1277.  
  1278. (working #str-iconfix)
  1279.  
  1280. (tooltype
  1281.     (prompt #str-iconfix)
  1282.     (settooltype "HELPFILE" #helpfile)
  1283.     (dest (tackon @default-dest "F1GP-Ed"))
  1284. )
  1285.  
  1286. (if (AND #tofloppy #fromfloppy)
  1287.     (set #TextTool "F1GP-Ed:C/AmigaGuide")
  1288. )
  1289.  
  1290. (set n 0)
  1291.  
  1292. (while
  1293.     (set #TextFile
  1294.         (select n
  1295.             "Docs/F1GP-Ed_english.guide"
  1296.             "Docs/F1GP-Ed_deutsch.guide"
  1297.             "Docs/F1GP-Ed_français.guide"
  1298.             "History.txt"
  1299.             "Reg_Form"
  1300.             "Docs/Registered.guide"
  1301.             "Extras/GP2"
  1302.             "Extras/Other_F1GP_Stuff.guide"
  1303.                         "Graphics/ReadMe"
  1304.                         "Sound/ReadMe"
  1305.             ""
  1306.         )
  1307.     )
  1308.     (
  1309.         (set #TextFile (tackon @default-dest #TextFile))
  1310.         (P_SetTextTool)
  1311.         (set n (+ n 1))
  1312.     )
  1313. )
  1314.  
  1315. (P_CleanTmpDirAll)
  1316.  
  1317. (complete 90)
  1318.  
  1319. ; install files for autoboot disk
  1320.  
  1321. (if (AND #tofloppy #fromfloppy)
  1322.     (
  1323.         (P_AskForInstallDisk)
  1324.         (copyfiles
  1325.             (prompt #str-tmpcopy)
  1326.             (help @copyfiles-help)
  1327.             (source "C")
  1328.             (dest (tackon #unpackdir "C"))
  1329.             (choices "AmigaGuide" "GOWB" "PPLoadSeg" "Type")
  1330.         )
  1331.         (copyfiles
  1332.             (prompt #str-tmpcopy)
  1333.             (help @copyfiles-help)
  1334.             (source "Libs")
  1335.             (dest (tackon #unpackdir "Libs"))
  1336.             (choices "amigaguide.library.pp" "powerpacker.library" "iffparse.library.pp")
  1337.         )
  1338.         (copyfiles
  1339.             (prompt #str-tmpcopy)
  1340.             (help @copyfiles-help)
  1341.             (source "S/disk.startup-sequence")
  1342.             (dest (tackon #unpackdir "S"))
  1343.             (newname "Startup-Sequence")
  1344.         )
  1345.         (copyfiles
  1346.             (prompt #str-tmpcopy)
  1347.             (help @copyfiles-help)
  1348.             (source "S/disk.text")
  1349.             (dest (tackon #unpackdir "S"))
  1350.             (newname "text")
  1351.         )
  1352.         (copyfiles
  1353.             (prompt #str-tmpcopy)
  1354.             (help @copyfiles-help)
  1355.             (source "system-configuration")
  1356.             (dest #unpackdir)
  1357.         )
  1358.         (copyfiles
  1359.             (prompt #str-tmpcopy)
  1360.             (help @copyfiles-help)
  1361.             (source "S/Disk.info")
  1362.             (dest #unpackdir)
  1363.         )
  1364.             
  1365.         (if (< #OSVersion 36)
  1366.             (
  1367.                 (copyfiles
  1368.                     (prompt #str-tmpcopy)
  1369.                     (help @copyfiles-help)
  1370.                     (source "C")
  1371.                     (dest (tackon #unpackdir "C"))
  1372.                     (choices "Echo" "Else" "EndIf"
  1373.                          "If" "Run")
  1374.                 )
  1375.                 (copyfiles
  1376.                     (prompt #str-tmpcopy)
  1377.                     (help @copyfiles-help)
  1378.                     (source "C/Assign13")
  1379.                     (dest (tackon #unpackdir "C"))
  1380.                     (newname "Assign")
  1381.                 )
  1382.                 (copyfiles
  1383.                     (prompt #str-tmpcopy)
  1384.                     (help @copyfiles-help)
  1385.                     (source "C/SetPatch13")
  1386.                     (dest (tackon #unpackdir "C"))
  1387.                     (newname "SetPatch")
  1388.                 )
  1389.                 (copyfiles
  1390.                     (prompt #str-tmpcopy)
  1391.                     (help @copyfiles-help)
  1392.                     (source "Libs")
  1393.                     (dest (tackon #unpackdir "Libs"))
  1394.                     (choices "icon.library.pp")
  1395.                 )
  1396.                 (copyfiles
  1397.                     (prompt #str-tmpcopy)
  1398.                     (help @copyfiles-help)
  1399.                     (source "L")
  1400.                     (dest (tackon #unpackdir "L"))
  1401.                     (all)
  1402.                 )
  1403.             )
  1404.             (
  1405.                 (copyfiles
  1406.                     (prompt #str-tmpcopy)
  1407.                     (help @copyfiles-help)
  1408.                     (source "C")
  1409.                     (dest (tackon #unpackdir "C"))
  1410.                     (choices "Assign" "SetPatch")
  1411.                 )
  1412.             )
  1413.         )
  1414.         (P_AskForMainDisk)
  1415.         (copyfiles
  1416.             (prompt #str-floppyextras)
  1417.             (help @copyfiles-help)
  1418.             (source #unpackdir)
  1419.             (dest @default-dest)
  1420.             (all)
  1421.         )
  1422.         (complete 99)
  1423.         (P_AskForInstallDisk)
  1424.         (P_CleanTmpDir)
  1425.     )
  1426. )
  1427.  
  1428. (P_CleanUp)
  1429.  
  1430. ; end
  1431.  
  1432. (complete 100)
  1433.  
  1434. (exit (cat (if (AND #fromfloppy #tofloppy) #str-bootfloppyend "")
  1435.     (#str-theend
  1436.     "http://www.nanunanu.org/~oliver/F1GP-Ed/"
  1437.     "Oliver Roberts (Oliver@POBoxes.com)"))
  1438. )
  1439.